#!/usr/bin/env perl

use utf8;
use strict;

sub max{
	my($cur_max) = shift @_;
	foreach(@_){
		if($_ >  $cur_max){
			$cur_max = $_;
		}
	}
	$cur_max;
}

print max(1, 7, 31, 435, 65, 4);
